(define (cont-frac N D k)
    (define (cf i)
        (if (= i k)
            (/ (N k) (D k))
            (/  (N i)
                (+ (D i) (cf (+ i 1))))))
    (cf 1))

(display "\n========================================\n")
(display (cont-frac (lambda (x) 1.0) (lambda (x) 1.0 ) 11))
(display "\n========================================\n")

(define (cont-frac N D k)
    (define (iter i result)
        (if (= i 0)
            result
            (iter (- i 1)
                (/  (N i)
                    (+ (D i) result)))))
    (iter (- k 1) (/ (N k) (N k))))

(display "\n========================================\n")
(display (cont-frac (lambda (x) 1.0) (lambda (x) 1.0 ) 11))
(display "\n========================================\n")
